home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / APro_GadTools.lha / GadTools / Beispiele / Hires / Beispiel3_RadioButtons.ASC < prev    next >
Text File  |  1995-10-08  |  1KB  |  60 lines
  1. ' **************************************** 
  2. ' * Beispiel-Listing Nr.3 (RadioButtons) * 
  3. ' * ------------------------------------ * 
  4. ' * evtl. muss noch der pfad in der      * 
  5. ' * letzten zeile geändert werden,       * 
  6. ' * damit das programm die GadTools      * 
  7. ' * finden und beiladen kann.            * 
  8. ' **************************************** 
  9. '
  10. '
  11. ' ************************************** 
  12. '      Eine Arbeitsmaske erstellen.  
  13. ' ************************************** 
  14. '
  15. '
  16. _SCREEN_OPEN[0,1]
  17. _MAKE_MASK[70,30,560,220,2,1,0]
  18. '
  19. '
  20. ' ************************************** 
  21. '       Und nun den Text aufbauen. 
  22. ' ************************************** 
  23. '
  24. '
  25. Ink 2,0
  26. Text 105,60,"     ***** Dies ist Beispiel-Listing Nr.3 *****"
  27. Text 105,68,"     ------------------------------------------"
  28. Text 105,80,"       Eine Demonstration für Radio-Buttons!"
  29. Text 105,90,"  Zum beenden des programms bitte auf EXIT klicken."
  30. Text 266,122,"RadioButton"
  31. '
  32. '
  33. ' ************************************** 
  34. '   Ein RadioButton & ein PushButton.  
  35. ' ************************************** 
  36. '
  37. '
  38. _RADIOBUTTON[1,296,130,2,1,2,1]
  39. _PUSHBUTTON[1,280,180,2,1,0,2," EXIT "]
  40. '
  41. '
  42. ' ************************************** 
  43. '    Warten bis Push-Button geklickt.
  44. ' ************************************** 
  45. '
  46. '
  47. Repeat 
  48. _RADIOBUTTON_HIT
  49. _PUSHBUTTON_HIT
  50. Until Param=1
  51. Direct 
  52. '
  53. '
  54. ' ************************************** 
  55. '     Das GadTools.Include beiladen. 
  56. ' ************************************** 
  57. '
  58. '
  59. Include "df0:GadTools.Inc"
  60.